home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / cli / mx2src.arc / SPAWN.MOD < prev    next >
Text File  |  1989-01-05  |  1KB  |  33 lines
  1.  
  2. (*              Copyright 1987 fred brooks LogicTek             *)
  3. (*                                                              *)
  4. (*                                                              *)
  5. (*   First Release                      12/8/87-FGB             *)
  6. (*                                                              *)
  7.  
  8. (*$A+,$S-,$T- *)
  9. MODULE  spawn;
  10. FROM    ATOMIC  IMPORT  MultiBegin,sysvariable,GEMTYPE,ROMDATE,
  11.                         OTOS,MTOS,OLDDATE,NEWDATE;
  12. FROM    SYSCALL IMPORT  SysVar,Sleep;
  13. FROM    SYSTEM  IMPORT  ADDRESS;
  14. FROM    GEMDOS  IMPORT  OldTerm;
  15. VAR           sv                              : sysvariable;
  16.               gem1     [OTOS]                 : POINTER TO GEMTYPE;
  17.               gem2     [MTOS]                 : POINTER TO GEMTYPE;
  18.  
  19. BEGIN
  20.                 SysVar(sv);
  21.                 IF ROMDATE=OLDDATE THEN
  22.                    sv.bpsave^:=gem1^;
  23.                    sv.bpsave^[0]:=ADDRESS(gem1);
  24.                 END;
  25.                 IF ROMDATE=NEWDATE THEN
  26.                    sv.bpsave^:=gem2^;
  27.                    sv.bpsave^[0]:=ADDRESS(gem2);
  28.                 END;
  29.                 MultiBegin;
  30.                 Sleep;
  31.                 OldTerm;
  32. END     spawn.
  33.